(c-electric-paren): Call old-blink-paren only for close-paren.

diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index 039ef3ccebfe666bf5886702bedd8528cf631c73..42808c3e3077f633baa1b325f899d1579c38cc90 100644 (file)
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -907,7 +907,8 @@ is nil."
             ;; be most disruptive.  We'll blink it ourselves
             ;; afterwards.
             (old-blink-paren blink-paren-function)
-            blink-paren-function)
+            blink-paren-function
+            (noblink (eq last-input-event ?\()))
        (self-insert-command (prefix-numeric-value arg))
        (if c-syntactic-indentation
            (indent-according-to-mode))
@@ -982,6 +983,7 @@ is nil."
                 (delete-region beg end))))
        (and (not executing-kbd-macro)
             old-blink-paren
+            (not noblink)
             (funcall old-blink-paren))))))
 
 (defun c-electric-continued-statement ()